COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare 
C00003 ENDMK
C⊗;
(declare 
 (fixnum (tak fixnum fixnum fixnum))
 (fixnum (stak))
 (special x y z)
 (fixnum x y z))

(defun tak (x y z)
  (stak))

(defun stak ()
       (cond ((not (< y x))	;x≤y
	      z)
	     (t (let ((x (let ((x (1- x))
			       (y y)
			       (z z))
			      (stak)))
		      (y (let ((x (1- y))
			       (y z)
			       (z x))
			      (stak)))
		      (z (let ((x (1- z))
			       (y x)
			       (z y))
			      (stak))))
		     (stak)))))

(include "timer.lsp")
(timer timit (tak 18. 12. 6.))